﻿Public Class xtf_ABMensayo04
    Dim ulg_row As DataRow
    Dim obj_ensayo04 As cls_ensayo04_ = Nothing

    Public Sub New()
        InitializeComponent()


        Cargarcliente_()
        Cargarcentrocostoorden_()
        'Cargarequipo_()
        Cargarcomponenteensayar_()
        Cargarnorma_()
        Cargarcriterio_()
        Cargarcondicionsuperficial_()
        Cargarlimpieza_()

        Cargarmaterial_()
        Cargarunidadespesor_()
        Cargarmarcapenetrante_()
        Cargaramodoaplicacion_()
        Cargarlimpiezaremocionremovedor_()
        Cargarremovedor_()
        Cargarrevelador_()
        Cargarpenetrantemetodo_()
        Cargarpenetrantetipo_()

        Cargariluminaciontipo_()
        CargarInspector_()
        CargarEvaluador_()
        Cargaringresado_()
        CargarRealizado_()

        AgregarValidaciones()

        'TEMPORAL Actualizo la numeracion
        Dim ensayosubtipo As New cls_ensayosubtipo_
        If ensayosubtipo.BuscarXidmodulo("001073001") Then
            txt_informe.EditValue = ensayosubtipo.numero
            txt_informe.Properties.Mask.EditMask = ""
            If ensayosubtipo.ensayotipo.siglaUSA Then txt_informe.Properties.Mask.EditMask &= ensayosubtipo.ensayotipo.sigla
            If ensayosubtipo.ensayotipo.siglaENGUSA Then txt_informe.Properties.Mask.EditMask &= ensayosubtipo.ensayotipo.siglaENG

            If ensayosubtipo.siglaUSA Then txt_informe.Properties.Mask.EditMask &= ensayosubtipo.sigla
            If ensayosubtipo.siglaENGUSA Then txt_informe.Properties.Mask.EditMask &= ensayosubtipo.siglaENG

            txt_informe.Properties.Mask.EditMask &= "-" & ensayosubtipo.numeroformato

            txt_informe.Properties.Mask.UseMaskAsDisplayFormat = True

        End If
        If System.IO.File.Exists(config_empresa.logochico) Then
            Dim logoempresa As Image = Image.FromFile(config_empresa.logochico)
            pic_empresaLogo.Image = logoempresa
        End If
    End Sub

    Public Overrides Sub CargarObjetos()
        Cargarcliente_()
        Cargarcentrocostoorden_()
        'Cargarequipo_()
        Cargarcomponenteensayar_()
        Cargarnorma_()
        Cargarcriterio_()
        Cargarcondicionsuperficial_()
        Cargarlimpieza_()

        Cargarmaterial_()
        Cargarunidadespesor_()
        Cargarmarcapenetrante_()
        Cargaramodoaplicacion_()
        Cargarlimpiezaremocionremovedor_()
        Cargarremovedor_()
        Cargarrevelador_()
        Cargarpenetrantemetodo_()
        Cargarpenetrantetipo_()

        Cargariluminaciontipo_()
        CargarInspector_()
        CargarEvaluador_()
        Cargaringresado_()
        CargarRealizado_()
    End Sub

    Private Sub CargarRealizado_()
        Dim tmp_obj As Integer = 0
        tmp_obj = cbo_realizado.EditValue
        Dim realizado_ As New Collections.Generic.List(Of cls_usuario_)
        Dim usuario_ As New cls_usuario_
        usuario_.CargarXtercerotipo(cls_tercero_.enu_tipotercero.Personal)
        If Not IsNothing(usuario_.Items) Then
            realizado_.AddRange(usuario_.Items)
        End If
        usuario_ = New cls_usuario_
        usuario_.CargarXtercerotipo(cls_tercero_.enu_tipotercero.Proveedor)
        If Not IsNothing(usuario_.Items) Then
            realizado_.AddRange(usuario_.Items)
        End If
        usuario_ = New cls_usuario_
        usuario_.CargarXtercerotipo(cls_tercero_.enu_tipotercero.Usuario)
        If Not IsNothing(usuario_.Items) Then
            realizado_.AddRange(usuario_.Items)
        End If
        If realizado_.Count = 0 Then realizado_ = Nothing
        cargarCombo(cbo_realizado, realizado_, False, True)
        cbo_realizado.EditValue = IIf(tmp_obj <> 0, tmp_obj, cbo_realizado.EditValue)
    End Sub
    Private Sub Cargaringresado_()
        Dim tmp_obj As Integer = 0
        tmp_obj = cbo_ingresado.EditValue
        Dim ingresado_ As New Collections.Generic.List(Of cls_usuario_)
        Dim usuario_ As New cls_usuario_
        usuario_.CargarXtercerotipo(cls_tercero_.enu_tipotercero.Personal)
        If Not IsNothing(usuario_.Items) Then
            ingresado_.AddRange(usuario_.Items)
        End If
        usuario_ = New cls_usuario_
        usuario_.CargarXtercerotipo(cls_tercero_.enu_tipotercero.Proveedor)
        If Not IsNothing(usuario_.Items) Then
            ingresado_.AddRange(usuario_.Items)
        End If
        usuario_ = New cls_usuario_
        usuario_.CargarXtercerotipo(cls_tercero_.enu_tipotercero.Usuario)
        If Not IsNothing(usuario_.Items) Then
            ingresado_.AddRange(usuario_.Items)
        End If
        If ingresado_.Count = 0 Then ingresado_ = Nothing
        cargarCombo(cbo_ingresado, ingresado_, False, False)
        cbo_ingresado.EditValue = IIf(tmp_obj <> 0, tmp_obj, cbo_ingresado.EditValue)
    End Sub
    Private Sub CargarInspector_()
        Dim tmp_obj As Integer = 0
        tmp_obj = cbo_inspector.EditValue
        Dim personal_ As New cls_personal_
        Dim parametro As New cls_config_parametro_
        parametro.Buscar("cargoInspector")
        personal_.CargarXidcargo(parametro.valor)
        cargarCombo(cbo_inspector, personal_.Items, False, True)
        cbo_inspector.EditValue = IIf(tmp_obj <> 0, tmp_obj, cbo_inspector.EditValue)
    End Sub
    Private Sub CargarEvaluador_()
        Dim tmp_obj As Integer = 0
        tmp_obj = cbo_evaluador.EditValue
        Dim personal_ As New cls_personal_
        Dim parametro As New cls_config_parametro_
        parametro.Buscar("cargoEvaluador")
        personal_.CargarXidcargo(parametro.valor)
        cargarCombo(cbo_evaluador, personal_.Items, False, True)
        cbo_evaluador.EditValue = IIf(tmp_obj <> 0, tmp_obj, cbo_evaluador.EditValue)
    End Sub
    Private Sub Cargarcliente_()
        Dim tmp_obj As Integer = 0
        tmp_obj = cbo_cliente.EditValue
        Dim cliente_ As New cls_cliente_
        cliente_.CargarTodos(True)
        cargarCombo(cbo_cliente, cliente_.Items)
        cbo_cliente.EditValue = IIf(tmp_obj <> 0, tmp_obj, cbo_cliente.EditValue)
    End Sub
    Private Sub Cargarcentrocostoorden_()
        Dim tmp_obj As Integer = 0
        tmp_obj = cbo_centrocostoorden.EditValue
        Dim centrocostoorden_ As New cls_centrocostoorden_
        centrocostoorden_.CargarXtipo(opt_obra.SelectedIndex)
        cargarCombo(cbo_centrocostoorden, centrocostoorden_.Items, True, True)
        cbo_centrocostoorden.EditValue = IIf(tmp_obj <> 0, tmp_obj, cbo_centrocostoorden.EditValue)
    End Sub

    Private Sub Cargarequipo_()
        Dim tmp_obj As Integer = 0
        tmp_obj = cbo_equipo.EditValue
        Dim equipo_ As New cls_equipo_
        If cbo_centrocostoorden.EditValue <> 0 Then
            equipo_.CargarXidobra(cbo_centrocostoorden.EditValue)
            cargarCombo(cbo_equipo, equipo_.Items, False, True)
        Else
            cargarCombo(cbo_equipo, equipo_.Items, False, True)
        End If
        cbo_equipo.EditValue = IIf(tmp_obj <> 0, tmp_obj, cbo_equipo.EditValue)
    End Sub

    Private Sub Cargarcomponenteensayar_()
        Dim tmp_obj As Integer = 0
        tmp_obj = cbo_componenteensayar.EditValue
        Dim componenteensayar_ As New cls_componenteensayar_
        componenteensayar_.CargarTodos()
        cargarCombo(cbo_componenteensayar, componenteensayar_.Items, False, True)
        cbo_componenteensayar.EditValue = IIf(tmp_obj <> 0, tmp_obj, cbo_componenteensayar.EditValue)
    End Sub
    Private Sub Cargarnorma_()
        Dim tmp_obj As Integer = 0
        tmp_obj = cbo_norma.EditValue
        Dim norma_ As New cls_criterionorma_
        norma_.CargarNormas()
        cargarCombo(cbo_norma, norma_.Items, False, True)
        cbo_norma.EditValue = IIf(tmp_obj <> 0, tmp_obj, cbo_norma.EditValue)
    End Sub

    Private Sub Cargarcriterio_()
        Dim tmp_obj As Integer = 0
        tmp_obj = cbo_criterio.EditValue
        Dim criterio_ As New cls_criterionorma_
        criterio_.CargarCriterios()
        cargarCombo(cbo_criterio, criterio_.Items, False, True)
        cbo_criterio.EditValue = IIf(tmp_obj <> 0, tmp_obj, cbo_criterio.EditValue)
    End Sub

    Private Sub Cargarcondicionsuperficial_()
        Dim tmp_obj As Integer = 0
        tmp_obj = cbo_condicionsuperficial.EditValue
        Dim condicionsuperficial_ As New cls_condicionsuperficial_
        condicionsuperficial_.CargarTodos()
        cargarCombo(cbo_condicionsuperficial, condicionsuperficial_.Items, False, True)
        cbo_condicionsuperficial.EditValue = IIf(tmp_obj <> 0, tmp_obj, cbo_condicionsuperficial.EditValue)
    End Sub

    Private Sub Cargarlimpieza_()
        Dim tmp_obj As Integer = 0
        tmp_obj = cbo_limpieza.EditValue
        Dim limpieza_ As New cls_limpiezaremocion_
        limpieza_.CargarLimpiezas()
        cargarCombo(cbo_limpieza, limpieza_.Items, False, True)
        cbo_limpieza.EditValue = IIf(tmp_obj <> 0, tmp_obj, cbo_limpieza.EditValue)
    End Sub
    Private Sub Cargarmaterial_()
        Dim tmp_obj As Integer = 0
        tmp_obj = cbo_idmaterial.EditValue
        Dim material_ As New cls_material_
        material_.CargarTodos()
        cargarCombo(cbo_idmaterial, material_.Items, False, True)
        cbo_idmaterial.EditValue = IIf(tmp_obj <> 0, tmp_obj, cbo_idmaterial.EditValue)
    End Sub
    Private Sub Cargarpenetrantemetodo_()
        Dim tmp_obj As Integer = 0
        tmp_obj = cbo_idpenetrantemetodo.EditValue
        Dim penetrantemetodo_ As New cls_penetrantemetodo_
        penetrantemetodo_.CargarTodos()
        cargarCombo(cbo_idpenetrantemetodo, penetrantemetodo_.Items, False, True)
        cbo_idpenetrantemetodo.EditValue = IIf(tmp_obj <> 0, tmp_obj, cbo_idpenetrantemetodo.EditValue)
    End Sub
    Private Sub Cargarpenetrantetipo_()
        Dim tmp_obj As Integer = 0
        tmp_obj = cbo_idpenetrantetipo.EditValue
        Dim penetrantetipo_ As New cls_penetrantetipo_
        penetrantetipo_.CargarTodos()
        cargarCombo(cbo_idpenetrantetipo, penetrantetipo_.Items, False, True)
        cbo_idpenetrantetipo.EditValue = IIf(tmp_obj <> 0, tmp_obj, cbo_idpenetrantetipo.EditValue)
    End Sub
    Private Sub Cargarunidadespesor_()
        Dim tmp_obj As Integer = 0
        tmp_obj = cbo_idunidadespesor.EditValue
        Dim unidad_ As New cls_unidad_
        unidad_.CargarTodos()
        cargarCombo(cbo_idunidadespesor, unidad_.Items, False, True)
        cbo_idunidadespesor.EditValue = IIf(tmp_obj <> 0, tmp_obj, cbo_idunidadespesor.EditValue)
    End Sub
    Private Sub Cargarrevelador_()
        Dim tmp_obj As Integer = 0
        tmp_obj = cbo_idrevelador.EditValue
        Dim revelador_ As New cls_marca_
        revelador_.CargarTodos()
        cargarCombo(cbo_idrevelador, revelador_.Items, False, True)
        cbo_idrevelador.EditValue = IIf(tmp_obj <> 0, tmp_obj, cbo_idrevelador.EditValue)
    End Sub
    Private Sub Cargarmarcapenetrante_()
        Dim tmp_obj As Integer = 0
        tmp_obj = cbo_idpenetrante.EditValue
        Dim marca_ As New cls_marca_
        marca_.CargarTodos()
        cargarCombo(cbo_idpenetrante, marca_.Items, False, True)
        cbo_idpenetrante.EditValue = IIf(tmp_obj <> 0, tmp_obj, cbo_idpenetrante.EditValue)
    End Sub
    Private Sub Cargaramodoaplicacion_()
        Dim tmp_obj As Integer = 0
        tmp_obj = cbo_idmodoaplicacion.EditValue
        Dim marca_ As New cls_limpiezaremocion_
        marca_.CargarTodos()
        cargarCombo(cbo_idmodoaplicacion, marca_.Items, False, True)
        cbo_idmodoaplicacion.EditValue = IIf(tmp_obj <> 0, tmp_obj, cbo_idmodoaplicacion.EditValue)
    End Sub
    Private Sub Cargarremovedor_()
        Dim tmp_obj As Integer = 0
        tmp_obj = cbo_idremoveedor.EditValue
        Dim removedor_ As New cls_removedor_
        removedor_.CargarTodos()
        cargarCombo(cbo_idremoveedor, removedor_.Items, False, True)
        cbo_idremoveedor.EditValue = IIf(tmp_obj <> 0, tmp_obj, cbo_idremoveedor.EditValue)
    End Sub
    Private Sub Cargarlimpiezaremocionremovedor_()
        Dim tmp_obj As Integer = 0
        tmp_obj = cbo_idlimpiezaremocionremovedor.EditValue
        Dim marca_ As New cls_limpiezaremocion_
        marca_.CargarTodos()
        cargarCombo(cbo_idlimpiezaremocionremovedor, marca_.Items, False, True)
        cbo_idlimpiezaremocionremovedor.EditValue = IIf(tmp_obj <> 0, tmp_obj, cbo_idlimpiezaremocionremovedor.EditValue)
    End Sub
    Private Sub Cargarlimpiezaremocionrevelador_()
        Dim tmp_obj As Integer = 0
        tmp_obj = cbo_idlimpiezaremocionrevelador.EditValue
        Dim marca_ As New cls_limpiezaremocion_
        marca_.CargarTodos()
        cargarCombo(cbo_idlimpiezaremocionrevelador, marca_.Items, False, True)
        cbo_idlimpiezaremocionrevelador.EditValue = IIf(tmp_obj <> 0, tmp_obj, cbo_idlimpiezaremocionrevelador.EditValue)
    End Sub
    Private Sub Cargariluminaciontipo_()
        Dim tmp_obj As Integer = 0
        tmp_obj = cbo_idiluminaciontipo.EditValue
        Dim iluminaciontipo_ As New cls_iluminaciontipo_
        iluminaciontipo_.CargarTodos()
        cargarCombo(cbo_idiluminaciontipo, iluminaciontipo_.Items, False, True)
        cbo_idiluminaciontipo.EditValue = IIf(tmp_obj <> 0, tmp_obj, cbo_idiluminaciontipo.EditValue)
    End Sub

    Public Shadows Sub Nuevo(ByRef listado As Form)
        Try
            frm_listado = listado
            Me.Text = CType(frm_listado, xtf_ListadoBase).lbl_modulo.Text & " - Nuevo"
            obj_ensayo04 = New cls_ensayo04_
            btn_Registro.Enabled = False
            Me.Show()

            dtp_fecha.DateTime = Now
            dtp_fechaEvaluador.DateTime = Now
            dtp_fechaInspector.DateTime = Now
            cbo_ingresado.EditValue = UsuarioLOG.idusuario
        Catch ex As Exception
            'Dim frmError As New frm_ErrorManager(ex.Message)
        End Try
    End Sub

    Public Shadows Sub Modificar(ByRef ensayo04 As cls_ensayo04_, ByRef listado As Form, ByRef row As DataRow)
        If IsNothing(obj_ensayo04) Then
            obj_ensayo04 = New cls_ensayo04_
        End If
        obj_ensayo04 = ensayo04
        frm_listado = listado
        ulg_row = row : bbi_imprimir.Enabled = True
        bbi_pdf.Enabled = True

        txt_ID.Text = obj_ensayo04.idensayo04
        txt_informe.Text = obj_ensayo04.numero
        Me.Text = CType(frm_listado, xtf_ListadoBase).lbl_modulo.Text & " - " & txt_informe.Text
        dtp_fecha.DateTime = obj_ensayo04.fecha
        cbo_cliente.EditValue = obj_ensayo04.idcliente

        If Not IsNothing(obj_ensayo04.centrocostoorden) Then
            opt_obra.SelectedIndex = obj_ensayo04.centrocostoorden.tipo
        End If
        cbo_centrocostoorden.EditValue = obj_ensayo04.idcentrocostoorden

        cbo_equipo.EditValue = obj_ensayo04.idequipo
        cbo_componenteensayar.EditValue = obj_ensayo04.idcomponenteensayar
        txt_identificacion.Text = obj_ensayo04.identificacion
        cbo_idmaterial.EditValue = obj_ensayo04.idmaterial
        txt_espesor.Text = obj_ensayo04.espesor
        cbo_idunidadespesor.EditValue = obj_ensayo04.idunidadespesor
        txt_procedimiento.Text = obj_ensayo04.procedimiento
        cbo_norma.EditValue = obj_ensayo04.idnorma
        cbo_criterio.EditValue = obj_ensayo04.idcriterio
        cbo_condicionsuperficial.EditValue = obj_ensayo04.idcondicionsuperficial
        cbo_limpieza.EditValue = obj_ensayo04.idlimpieza
        cbo_idpenetrante.EditValue = obj_ensayo04.idpenetrante
        cbo_idlimpiezaremocionremovedor.EditValue = obj_ensayo04.idlimpiezaremocionremovedor
        cbo_idmodoaplicacion.EditValue = obj_ensayo04.idmodoaplicacion
        cbo_idremoveedor.EditValue = obj_ensayo04.idremoveedor
        cbo_idlimpiezaremocionrevelador.EditValue = obj_ensayo04.idlimpiezaremocionrevelador
        cbo_idrevelador.EditValue = obj_ensayo04.idrevelador
        cbo_idpenetrantetipo.EditValue = obj_ensayo04.idpenetrantetipo
        cbo_idpenetrantemetodo.EditValue = obj_ensayo04.idpenetrantemetodo
        cbo_idiluminaciontipo.EditValue = obj_ensayo04.idiluminaciontipo
        pic_croquis.Image = obj_ensayo04.croquis
        txt_croquisnotas.Text = obj_ensayo04.croquisnotas
        txt_notas.Text = obj_ensayo04.notas
        opt_informeestado.SelectedIndex = obj_ensayo04.informeestado
        dtp_fechaEvaluador.DateTime = obj_ensayo04.evaluadorfecha
        dtp_fechaInspector.DateTime = obj_ensayo04.inspectorfecha
        cbo_inspector.EditValue = obj_ensayo04.idinspector
        cbo_evaluador.EditValue = obj_ensayo04.idevaluador
        cbo_realizado.EditValue = obj_ensayo04.idusuariorealizado
        cbo_ingresado.EditValue = obj_ensayo04.idusuarioingresado

        btn_Registro.Enabled = True

        'obj_ensayo04.localidad = Nothing
        Me.Show()

    End Sub

    Public Overrides Function ComprobarDatos() As Boolean

        If dtp_fecha.DateTime > dtp_fechaEvaluador.DateTime Then
            ErrManagerShow("Fecha invalida.", "La fecha de Evaluacion no puede ser menor a la fecha del documento", xtf_ErrManagerAlerta.errManagerImg.img_Advertencia, xtf_ErrManagerAlerta.errManagerBtn.btn_Aceptar)
            Return False
        End If
        If dtp_fecha.DateTime > dtp_fechaInspector.DateTime Then
            ErrManagerShow("Fecha invalida.", "La fecha de Inspección no puede ser menor a la fecha del documento", xtf_ErrManagerAlerta.errManagerImg.img_Advertencia, xtf_ErrManagerAlerta.errManagerBtn.btn_Aceptar)
            Return False
        End If
        Return True
    End Function

    Public Shadows Sub btn_Guardar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Guardar.Click
        If ComprobarDatos() Then

            'obj_ensayo04.idensayo04 = txt_ID.Text
            obj_ensayo04.numero = txt_informe.EditValue
            obj_ensayo04.fecha = dtp_fecha.DateTime
            obj_ensayo04.idcliente = cbo_cliente.EditValue
            obj_ensayo04.idcentrocostoorden = cbo_centrocostoorden.EditValue
            obj_ensayo04.idequipo = cbo_equipo.EditValue
            obj_ensayo04.idcomponenteensayar = cbo_componenteensayar.EditValue
            obj_ensayo04.identificacion = txt_identificacion.Text
            obj_ensayo04.idmaterial = cbo_idmaterial.EditValue
            obj_ensayo04.espesor = txt_espesor.Text
            obj_ensayo04.idunidadespesor = cbo_idunidadespesor.EditValue
            obj_ensayo04.procedimiento = txt_procedimiento.Text
            obj_ensayo04.idnorma = cbo_norma.EditValue
            obj_ensayo04.idcriterio = cbo_criterio.EditValue
            obj_ensayo04.idcondicionsuperficial = cbo_condicionsuperficial.EditValue
            obj_ensayo04.idlimpieza = cbo_limpieza.EditValue
            obj_ensayo04.idpenetrante = cbo_idpenetrante.EditValue
            obj_ensayo04.idlimpiezaremocionremovedor = cbo_idlimpiezaremocionremovedor.EditValue
            obj_ensayo04.idmodoaplicacion = cbo_idmodoaplicacion.EditValue
            obj_ensayo04.idremoveedor = cbo_idremoveedor.EditValue
            obj_ensayo04.idlimpiezaremocionrevelador = cbo_idlimpiezaremocionrevelador.EditValue
            obj_ensayo04.idrevelador = cbo_idrevelador.EditValue
            obj_ensayo04.idpenetrantetipo = cbo_idpenetrantetipo.EditValue
            obj_ensayo04.idpenetrantemetodo = cbo_idpenetrantemetodo.EditValue
            obj_ensayo04.idiluminaciontipo = cbo_idiluminaciontipo.EditValue
            obj_ensayo04.croquis = pic_croquis.Image
            obj_ensayo04.croquisnotas = txt_croquisnotas.Text
            obj_ensayo04.notas = txt_notas.Text
            obj_ensayo04.informeestado = opt_informeestado.SelectedIndex
            obj_ensayo04.evaluadorfecha = dtp_fechaEvaluador.DateTime
            obj_ensayo04.inspectorfecha = dtp_fechaInspector.DateTime
            obj_ensayo04.idinspector = cbo_inspector.EditValue
            obj_ensayo04.idevaluador = cbo_evaluador.EditValue
            obj_ensayo04.idusuariorealizado = cbo_realizado.EditValue
            obj_ensayo04.idusuarioingresado = cbo_ingresado.EditValue

            If txt_ID.Text = "" Then
                obj_ensayo04.Nuevo(True)
                If frm_listado.Visible Then
                    ulg_row = CType(frm_listado, xtf_LISTADOensayo04_).AgregarItem(obj_ensayo04)
                End If
                Modificar(obj_ensayo04, frm_listado, ulg_row)
            Else
                obj_ensayo04.Modificar()
                If frm_listado.Visible Then
                    CType(frm_listado, xtf_LISTADOensayo04_).ModificarItem(obj_ensayo04, ulg_row)
                End If
                Modificar(obj_ensayo04, frm_listado, ulg_row)
            End If
            flg_Modificado = False : btn_Guardar.Enabled = False : bbi_guardar.Enabled = False
        End If
    End Sub

    Private Sub btn_Registro_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Registro.Click
        If Not IsNothing(obj_ensayo04.registro) Then
            Dim ABMRegistro As New xtf_ABMRegistro(obj_ensayo04.registro)
            If ABMRegistro.ShowDialog() = Windows.Forms.DialogResult.OK Then
                flg_Modificado = True
            End If
        End If
    End Sub


    Private Sub btn_Cerrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Cerrar.Click
        If flg_Modificado Then
            bol_comprobarCerrado = False
            Select Case ErrManagerShow("000001", Me)
                Case Windows.Forms.DialogResult.Yes
                    If ComprobarDatos() Then
                        btn_Guardar_Click(Nothing, Nothing)
                    Else
                        Exit Sub
                    End If
                Case Windows.Forms.DialogResult.Cancel : bol_comprobarCerrado = True
                    Exit Sub
            End Select
        End If
        Me.Dispose()
    End Sub

    Private Sub cbo_centrocostoorden_EditValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbo_centrocostoorden.EditValueChanged
        Cargarequipo_()
        Dim obra As New cls_centrocostoorden_
        If obra.Buscar(cbo_centrocostoorden.EditValue) Then
            cbo_cliente.EditValue = obra.idcliente
        Else
            cbo_cliente.EditValue = Nothing
        End If

    End Sub

   Private Function generarReporte() ' As xtr_REPORTEensayo03
        'Dim report As New xtr_REPORTEensayo03
        'report.lbl_numero.Text = "Informe: " & txt_informe.Text
        'report.lbl_fecha.Text = "Fecha: " & Format(dtp_fecha.DateTime, "dd/MM/yyyy")
        'report.lbl_cliente.Text = cbo_cliente.Text
        'report.lbl_centrocostoorden.Text = cbo_centrocostoorden.Text
        'report.lbl_equipo.Text = cbo_equipo.Text
        'report.lbl_componenteensayar.Text = cbo_componenteensayar.Text
        'report.lbl_identificacion.Text = txt_identificacion.Text
        'report.lbl_procedimiento.Text = txt_procedimiento.Text
        'report.lbl_norma.Text = cbo_norma.Text
        'report.lbl_criterio.Text = cbo_criterio.Text
        'report.lbl_condicionsuperficial.Text = cbo_condicionsuperficial.Text
        'report.lbl_limpieza.Text = cbo_limpieza.Text
        'report.lbl_magnetizaciontecnica.Text = cbo_magnetizaciontecnica.Text
        'report.lbl_magnetizacioncorriente.Text = cbo_magnetizacioncorriente.Text
        'report.lbl_magnetizacionequipo.Text = cbo_magnetizacionequipo.Text
        'report.lbl_particulatipo.Text = cbo_particulatipo.Text
        'report.lbl_color.Text = cbo_color.Text
        'report.lbl_marca.Text = cbo_marca.Text
        'report.lbl_aplicacion.Text = cbo_aplicacion.Text
        'report.lbl_tipoiluminacion.Text = cbo_iluminaciontipo.Text
        'report.pic_croquis.Image = pic_croquis.Image
        'report.lbl_croquisnotas.Text = txt_croquisnotas.Text
        'report.lbl_notas.Text = txt_notas.Text

        'report.lbl_fechainspector.Text = "Fecha: " & Format(dtp_fechaInspector.DateTime, "dd/MM/yyyy")
        'report.lbl_fechaevaluador.Text = "Fecha: " & Format(dtp_fechaEvaluador.DateTime, "dd/MM/yyyy")
        'report.lbl_inspector.Text = cbo_inspector.Text
        'report.lbl_evaluador.Text = cbo_evaluador.Text

        'Dim ensayosubtipo As New cls_ensayosubtipo_
        'If ensayosubtipo.BuscarXidmodulo("001072001") Then
        '    report.lbl_nombreinforme.Text = ensayosubtipo.nombreinforme
        'End If

        'If System.IO.File.Exists(config_empresa.logochico) Then
        '    Dim logoempresa As Image = Image.FromFile(config_empresa.logochico)
        '    report.pic_empresaLogo.Image = logoempresa
        'End If

        'Select Case opt_informeestado.SelectedIndex
        '    Case 0
        '        report.shp_aceptado.FillColor = Color.Black
        '    Case 1
        '        report.shp_observado.FillColor = Color.Black
        '    Case 2
        '        report.shp_rechazado.FillColor = Color.Black
        'End Select
        'Return report
    End Function

    Public Overrides Sub bbi_imprimir_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs)
        'generarReporte.ShowPreview()
        ErrManagerShow("000011", Me)
    End Sub

    Private Sub bbi_pdf_ItemClick(ByVal sender As System.Object, ByVal e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbi_pdf.ItemClick
        'Dim dialog As New SaveFileDialog
        'dialog.Filter = "Documento PDF(*.pdf)|*.pdf"
        'Dim ensayosubtipo As New cls_ensayosubtipo_
        'If ensayosubtipo.BuscarXidmodulo("001072001") Then
        '    dialog.FileName = ensayosubtipo.nombreinforme
        'End If
        'If dialog.ShowDialog = Windows.Forms.DialogResult.OK Then
        '    generarReporte.ExportToPdf(dialog.FileName)
        'End If
        ErrManagerShow("000011", Me)
    End Sub

    Private Sub opt_obra_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles opt_obra.SelectedIndexChanged
        Cargarcentrocostoorden_()
    End Sub


End Class